      CHARACTER*60 WRKDIR
      COMMON /IOPAR/ LENWRK, WRKDIR
